function LM11_1d
SequenceLength = [100:10:1000,1000:100:5000,5000:500:10000];
SquareRootOfSL = SequenceLength.^0.5;
Var=zeros(1,length(SequenceLength));
for i=1:1:length(SequenceLength)
    Var(i) = F_HistogramWithoutPlot(SequenceLength(i));
end
ReSQ=1./SquareRootOfSL;
figure;
plot(ReSQ,Var,'.b');
title('Relation between variation and the square root of the sequence length');
xlabel('Reciprocal value of square root of the sequence length');ylabel('Variation');


c0=0;
c= lsqcurvefit ('F_Fitting', c0, ReSQ, Var) ;
x=0:0.0001:max(ReSQ)*1.2;
y=c(1).*x;
hold on;
plot(x,y,'-r');

r2= corrcoef(SquareRootOfSL,Var);             % calculating the correlation coefficient
% showing the correlation coefficient
disp('The correlation coefficient is ');
disp(r2(2)^2);
end

